home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ IE Options 1.xpl < prev    next >
Text File  |  2001-10-17  |  3KB  |  78 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Internet Explorer\System"
  5. "NAME"="Advanced Options #1"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.6"
  8. "TEXT 1"="Check for Updates on microsoft.com"
  9. "TEXT 2"="Enable Install-on-demand for Internet Explorer"
  10. "TEXT 3"="Enable Install-on-demand for third parties"
  11. "TEXT 4"="Enable disk caching (aka "Temporary Files")"
  12. "TEXT 5"="Enable Error Reporting"
  13. "DESCRIPTION 1"="Option #1: Allows Internet Explorer to periodically check for updates (usually once a month). If a new version of Internet Explorer is available, it will invite you to download it."
  14. "DESCRIPTION 2"="Options #2 & #3: By enabling Install-on-demand Internet Explorer will ask you if you would like to install extra components if they are needed to view a web page. Enabling Option #2 will allow Internet Explorer to ask you about official Microsoft-approved add-ons for Internet Explorer, while Option #3 will ask you if you want to install third-party components, such as Macromedia's Shockwave and My Comet Cursor. NOTE: Option 3 is for Internet Explorer 6.0 only."
  15. "DESCRIPTION 3"="Option #4: Enabling this will allow Internet Explorer to save a copy of web pages your visit in its cache, located in your Temporary Internet FIles folder. This makes browsing quicker, but can eat up hard disk space and if other people use your computer they will be able to see web sites you have visited."
  16. "DESCRIPTION 4"="Option #5: When Internet Explorer crashes, it asks you if you would like to send an error report to Microsoft. Doing this may help the Internet Explorer development team improve stability in future releases, however you can disable this by clearing the tick in the box. Internet Explorer 6.0 only!"
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Internet Explorer 6.0 options added by Neil Turner."
  21.  
  22. sP1="HKLM\SOFTWARE\Policies\Microsoft\Internet Explorer\Infodelivery\Restrictions\"
  23. sV1="NoUpdateCheck"
  24. sV2="NoJITSetup"
  25. sV3="NoWebJITSetup"
  26. sP2="HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\"
  27. sV4="Enable_Disk_Cache"
  28. sV5="IEWatsonDisable"
  29.  
  30. SUB Plugin_Initialize  
  31.  i=RegReadValue(sP1 & sV1)
  32.  if i<>1 then SetUIElement 1,true
  33.  
  34.  i=RegReadValue(sP1 & sV2)
  35.  if i<>1 then SetUIElement 2,true
  36.  
  37.  i=RegReadValue(sP1 & sV3)
  38.  if i<>1 then SetUIElement 3,true
  39.  
  40.  i=RegReadValue(sP2 & sV4)
  41.  if IsEmpty(i) or i="yes" then SetUIElement 4,true
  42.  
  43.  i=RegReadValue(sP2 & sV5)
  44.  if i<>1 then SetUIElement 5,true
  45. END SUB
  46.  
  47. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  Call Wrt(1,sP1 & sV1)
  49.  Call Wrt(2,sP1 & sV2)
  50.  Call Wrt(3,sP1 & sV3)
  51.  Call Wrt(5,sP2 & sV5)
  52.  
  53.  b=GetUIElement(4)
  54.  if b=true then
  55.   Call RegWriteValue(sP2 & sV4,"yes",1)
  56.  else
  57.   Call RegWriteValue(sP2 & sV4,"no",1)
  58.  end if
  59.  
  60.  Call Restart()
  61. END SUB
  62.  
  63. Sub Wrt(ITM,VAL)
  64.  b=GetUIElement(ITM)
  65.  if b=false then
  66.     Call RegWriteValue(VAL,1,2)
  67.  else
  68.     s=RegReadValue(VAl)
  69.     if IsEmpty(s)=false then
  70.        Call RegDeleteValue(VAL)
  71.     end if
  72.  end if
  73. end sub
  74.  
  75. SUB Plugin_Terminate
  76. END SUB
  77.  
  78.